home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / timeline.dir / 00017_Script_17 < prev    next >
Text File  |  1983-01-29  |  1KB  |  37 lines
  1. ------------- PARAMETRI
  2. ------------- CONDIZIONE: mettere in fila le zone sensibili e poi gli hilite
  3.  
  4. ------------- dacast = primo cast dove sono posizionate le zone sensibili
  5. ------------- quanti = numero degli hilite presenti sul cast
  6. ------------- primocan = primo canale su cui sono posizionate le zone sensibili
  7. ------------- primascritta = primo canale su cui sono posizionate le scritte degli hilite
  8. -------------------------------------------------------------------------------------------------------------------
  9.  
  10. on katt dacast, quanti, primocan
  11.   global bloc  
  12.   if bloc = false then
  13.     
  14.     repeat while the mousecast >=dacast and the mousecast <= dacast + quanti - 1
  15.       set miohilite = the mousecast
  16.       if miohilite >=dacast and miohilite <= dacast + quanti - 1 then
  17.         repeat with mm = 1 to quanti
  18.           set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
  19.           
  20.         end repeat
  21.         set the castnum of sprite (miohilite-dacast+primocan) to (miohilite+quanti)
  22.         
  23.         updatestage
  24.       end if
  25.     end repeat
  26.     
  27.     if the mousecast < dacast or the mousecast >= dacast + 2*quanti then
  28.       repeat with mm = 1 to quanti
  29.         set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
  30.       end repeat
  31.     end if
  32.   end if    
  33. end
  34.  
  35.  
  36.  
  37.